#!/usr/bin/perl
use strict;
use warnings;
use XML::Simple;
use Data::Dumper;

sub check_in_to_git {
  my $xml = XML::Simple->new;
  my $hashref = $xml->XMLin("branch.xml");
  my $arrayref = $hashref->{branch};
  foreach my $item (@$arrayref) {
    print "$item->{depot_path}\n";
  }
}
check_in_to_git();
